home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 October / Macworld (1998-10).dmg / Serious Demos / Agamik BarCoding / Agamik BarCoder Demo 3.03 / Agamik BarCoder Demo 3.03.rsrc / STR#_1012.txt < prev    next >
Text File  |  1998-05-23  |  2KB  |  77 lines
  1. /_SS {/Symbol findfont exch scalefont setfont} bind def
  2.  
  3. /_SF { exch findfont exch scalefont setfont } bind def
  4.  
  5. /nrf { dup FontDirectory exch known { pop } { NoRecode } ifelse } def
  6.  
  7. /rf { dup FontDirectory exch known { pop } { Recode } ifelse } def
  8.  
  9. { pop findfont CopyDictionary NewName exch definefont } if pop } def
  10.  
  11. /NoRecode { dup cvn /NewName exch def (|_) anchorsearch
  12.  
  13. /RecodeFont { dup FontDirectory exch known { pop } { Recode } ifelse } def
  14.  
  15. NewName exch definefont } if pop } def
  16.  
  17. { pop findfont CopyDictionary dup /Encoding NewCodes put
  18.  
  19. /Recode { dup cvn /NewName exch def (|_) anchorsearch
  20.  
  21. { 1 index /FID ne { NF 3 1 roll put } { pop pop } ifelse } forall NF } def
  22.  
  23. /CopyDictionary { dup maxlength dict /NF exch def
  24.  
  25. NewCodes 128 128 getinterval astore pop
  26.  
  27. /macron /breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
  28.  
  29. /apple /Ograve /Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde
  30.  
  31. /Edieresis /Egrave /Iacute /Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex
  32.  
  33. /Acircumflex /Ecircumflex /Aacute
  34.  
  35. /daggerdbl /periodcentered /quotesinglbase /quotedblbase /perthousand
  36.  
  37. /ydieresis /Ydieresis /fraction /currency /guilsinglleft /guilsinglright /fi /fl
  38.  
  39. /endash /emdash /quotedblleft /quotedblright /quoteleft /quoteright /divide /lozenge
  40.  
  41. /guillemotright /ellipsis /space /Agrave /Atilde /Otilde /OE /oe
  42.  
  43. /questiondown /exclamdown /logicalnot /radical /florin /approxequal /Delta /guillemotleft
  44.  
  45. /product /pi /integral /ordfeminine /ordmasculine /Omega /ae /oslash
  46.  
  47. /infinity /plusminus /lessequal /greaterequal /yen /mu /partialdiff /summation
  48.  
  49. /registersans /copyrightsans /trademarksans /acute /dieresis /notequal /AE /Oslash
  50.  
  51. /dagger /degree /cent /sterling /section /bullet /paragraph /germandbls
  52.  
  53. /ograve /ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex /udieresis
  54.  
  55. /ecircumflex /edieresis /iacute /igrave /icircumflex /idieresis /ntilde /oacute
  56.  
  57. /agrave /acircumflex /adieresis /atilde /aring /ccedilla /eacute /egrave
  58.  
  59. /Adieresis /Aring /Ccedilla /Eacute /Ntilde /Odieresis /Udieresis /aacute
  60.  
  61. NewCodes 16#60 /grave put
  62.  
  63. NewCodes 16#27 /quotesingle put
  64.  
  65. putinterval
  66.  
  67. 0 128 getinterval
  68.  
  69. StandardEncoding
  70.  
  71. NewCodes 0
  72.  
  73. /NewCodes 256 array def
  74.  
  75. /_ftName 66 string def
  76.  
  77.